home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / GWAda 1.5.1 / GW-Ada⁄Ed-MacProgs / Spider / DRAW16.ADA < prev    next >
Encoding:
Text File  |  1994-01-10  |  164 b   |  20 lines  |  [TEXT/Anon]
  1. WITH Spider; Use Spider;
  2. PROCEDURE Drawing16 IS 
  3. BEGIN 
  4. Reset; 
  5. Red;
  6. Step;
  7. Step;
  8. Step;
  9. Step;
  10. Black;
  11. Turn;
  12. Step;
  13. Turn;
  14. Turn;
  15. Green;
  16. Step;
  17. Step;
  18. Step;
  19. END Drawing16;
  20.